From: Jim Blandy <jimb@redhat.com>
Date: Tue, 4 May 1993 02:26:53 +0000 (+0000)
Subject: * data.c (Ffset): Refuse to set the function value of t or nil.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96413
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e3fa7dfc18bb7236d2a67357e3763225146b62e1;p=emacs.git

* data.c (Ffset): Refuse to set the function value of t or nil.
---

diff --git a/src/data.c b/src/data.c
index 613d9db6a64..c4473c8cbd3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -518,6 +518,9 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
      register Lisp_Object sym, newdef;
 {
   CHECK_SYMBOL (sym, 0);
+  if (NILP (sym) || EQ (sym, Qt))
+    return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
+
   if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound))
     Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function),
 			     Vautoload_queue);